  CALL  FANFAN
  JP  URIN01
  FI

;  LD HL,(HAVE_ITEM_ADR)
URIL2:
  CALL  C
  LD  A,(MEMNO)
  LD  (CHAR_FROM),A
   CALL PERSON_STATUS
   CALL ITEM_CURSOLE   ;A=ITEM